home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 04 (1989-04)(MicroSPARC)(Side A).zip / Nibble Volume 10, No. 04 (1989-04)(MicroSPARC)(Side A).po / PRODOS.PRINT.S.bas < prev    next >
BASIC Source File  |  1996-12-24  |  495b  |  2 lines
  1. 10  FOR I = 0 TO 32: READ B: POKE 768 +I,B: NEXT : PRINT  CHR$(4)"BSAVEPRODOS.PRINT,A768,L33": DATA 173,48,190,133,6,173,49,190,133,7,169,0,141,48,190,169,193,141,49,190,96,0,165,6,141,48,190,165,7,141,49,190,96
  2. 20  HOME : PRINT " ";: FOR I = 1 TO  PEEK(33) -2: PRINT "_";: NEXT : PRINT : FOR I = 1 TO 20: PRINT "|" SPC(  PEEK(33) -2)"|";: NEXT : PRINT "|";: FOR I = 1 TO  PEEK(33) -2: PRINT "_";: NEXT : PRINT "|";: VTAB 10: HTAB  PEEK(33)/2 -6: PRINT "PRINTER DEMO.": CALL 768: LIST : CALL 790